10 REM GLOCKE UND HAMMER *******C64
20 REM                          ***
30 REM (P) 1990 COMMODORE-DISC  ***
40 REM                          ***
50 REM                          ***
60 REM (C) 1990 BY G. KRAMER    ***
70 REM             EMSDETTEN    ***
80 REM                          ***
90 REM ****************************
100 IFA=1THEN130
110 A=1
120 LOAD"MP.GLOCKE+HAMMER",8,1
130 GOSUB3510
140 GOSUB6500
150 GOSUB3750
160 GOSUB4770
170 GOSUB240
180 POKE198,0
190 GETA$:IFA$=""THEN190
200 _END:END
210 REM ****************
220 REM SPIEL LAEUFT ***
230 REM ****************
240 GOSUB590
250 FORI=1TOAN
260 MS(0,0)=MS(0,0)+10
270 MS(I,2)=-10
280 NEXT
290 GOSUB670
300 FORI=1TO200:NEXT
310 GOSUB3020:GOSUB1170
320 SN=1:Z$="0":GOSUB3020
330 SYS51776:GOSUB1910
340 GOSUB2400
350 IFMS(0,0)>0THEN330
360 A$="SPIELENDE - NEUE RUNDE?"
370 GOSUB1840
380 GETA5$
390 IFA5$<>"J"ANDA5$<>"N"THEN380
400 FORSS=1TOAN
410 MS(SS,0)=MS(SS,0)+MS(SS,2)
420 MS(SS,2)=0:GOSUB730
430 NEXT
440 IFA5$="J"THEN240
450 RETURN
460 REM ***************
470 REM GET-ROUTINE ***
480 REM ***************
490 IFZ$="1"THEN510
500 POKE198,0
510 GETA$
520 IFA$=""ANDZ$="0"THEN510
530 IFA$=CHR$(136)THENZ$="1"
540 IFA$=CHR$(135)THENZ$="0"
550 RETURN
560 REM **********************
570 REM SPIELFELD LOESCHEN ***
580 REM **********************
590 FORI=82TO114STEP8
600 POKEB+I,32:NEXT
610 A$="EINSATZ = 10"
620 GOSUB1840
630 RETURN
640 REM *******************
650 REM ALLE PUNKTWERTE ***
660 REM *******************
670 FORSS=0TOAN
680 GOSUB730
690 NEXT:RETURN
700 REM *******************
710 REM AUSGEBEN PUNKTE ***
720 REM *******************
730 AA=MS(SS,0)
740 GOSUB1100
750 IFSS>0THEN800
760 POKEZE,9:POKESP,26:SYSCU
770 A$="BANK = "+A$
780 PRINTCHR$(5)A$
790 GOTO1060
800 POKEZE,14:A=SS*10-7
810 IFSS>4THENA=A-40:POKEZE,22
820 POKESP,A:SYSCU
830 A0=146:IFAA<0THENA0=18
840 A0$=CHR$(32)+CHR$(32)+CHR$(32)
850 IFAA>=0THEN870
860 A0$=CHR$(164)+CHR$(164)+CHR$(164)
870 A0$=A0$+A0$
880 PRINTCHR$(153)CHR$(146)A0$
890 POKEZE,15:IFSS>4THENPOKEZE,23
900 POKESP,A:SYSCU
910 PRINTCHR$(153)CHR$(A0)A$
920 AA=MS(SS,2)
930 GOSUB1100
940 POKEZE,12:IFSS>4THENPOKEZE,20
950 A=SS*10-7:IFSS>4THENA=A-40
960 POKESP,A:SYSCU
970 A0=146:IFAA<0THENA0=18
980 A0$=CHR$(32)+CHR$(32)+CHR$(32)
990 IFAA>=0THEN1010
1000 A0$=CHR$(164)+CHR$(164)+CHR$(164)
1010 A0$=A0$+A0$
1020 PRINTCHR$(153)CHR$(146)A0$
1030 POKEZE,13:IFSS>4THENPOKEZE,21
1040 POKESP,A:SYSCU
1050 PRINTCHR$(A0)A$
1060 RETURN
1070 REM **********************
1080 REM AUFBEREITEN PUNKTE ***
1090 REM **********************
1100 A$=STR$(AA)
1110 A$="....."+RIGHT$(A$,LEN(A$)-1)
1120 A$=RIGHT$(A$,6)
1130 RETURN
1140 REM **********************
1150 REM KARTEN VERSTEIGERN ***
1160 REM **********************
1170 FORI=1TO5
1180 K$(I,1)=" BANK"
1190 KA(I,0)=0:KA(I,1)=0
1200 NEXT
1210 FORK=1TO5
1220 A$="VERSTEIGERN:"+K$(K,0)
1230 GOSUB1840
1240 POKE198,0
1250 GETA$:IFA$="0"THEN1280
1260 A=VAL(A$):IFA<1ORA>ANTHEN1250
1270 GOSUB1370:IFPR=0THEN1220
1280 NEXT
1290 A$="VERSTEIGERUNG ENDE?"
1300 GOSUB1840
1310 GETA$:IFA$="N"THEN1210
1320 IFA$<>"J"THEN1310
1330 RETURN
1340 REM *******************
1350 REM SPEICHERN KARTE ***
1360 REM *******************
1370 A$=STR$(A):POKEF+K*8+74,0
1380 POKEB+K*8+74,ASC(RIGHT$(A$,1))
1390 A$="PREIS FUER "+K$(K,0)+"?"
1400 GOSUB1840
1410 PR=0:POKE198,0
1420 GETA$:IFA$=CHR$(13)THEN1530
1430 IFA$<>CHR$(20)THEN1460
1440 PR=INT(PR/10)
1450 GOTO1480
1460 IFA$<"0"ORA$>"9"THEN1420
1470 A0=VAL(A$):PR=10*PR+A0
1480 A$=CHR$(32)+STR$(PR)
1490 POKEZE,7:POKESP,8*K-2-LEN(A$)
1500 SYSCU
1510 PRINTA$
1520 IFPR<100THEN1420
1530 IFPR=0THEN1740
1540 IFPR>KA(K,1)THEN1580
1550 A$=K$(K,0)+" >"
1560 A$=A$+STR$(KA(K,1))
1570 GOTO1400
1580 A$=K$(K,0)+" ="
1590 A$=A$+STR$(PR)+" OK?"
1600 GOSUB1840
1610 POKE198,0
1620 GETA$:IFA$="N"THEN1370
1630 IFA$<>"J"THEN1620
1640 S0=KA(K,0):IFS0=0THEN1670
1650 PS=KA(K,1):MS(0,0)=MS(0,0)-PS
1660 MS(S0,2)=MS(S0,2)+PS
1670 K$(K,1)=STR$(A)
1680 KA(K,1)=PR:KA(K,0)=A
1690 MS(0,0)=MS(0,0)+PR
1700 MS(A,2)=MS(A,2)-PR
1710 SS=A:GOSUB730
1720 SS=S0:GOSUB730
1730 SS=0:GOSUB730
1740 A$=STR$(KA(K,0)):POKEF+K*8+74,0
1750 POKEB+K*8+74,ASC(RIGHT$(A$,1))
1760 A$=STR$(KA(K,1))
1770 POKEZE,7:POKESP,8*K-2-LEN(A$)
1780 SYSCU
1790 PRINTA$
1800 RETURN
1810 REM *********************
1820 REM INFORMATIONSZEILE ***
1830 REM *********************
1840 POKE781,9:POKE782,24:SYS59905
1850 POKEZE,9:POKESP,0:SYSCU
1860 PRINTCHR$(144)A$
1870 RETURN
1880 REM ************
1890 REM WUERFELN ***
1900 REM ************
1910 GOSUB2300
1920 A$="BITTE WUERFELN"
1930 GOSUB1840
1940 GOSUB490
1950 FORI=1TO8
1960 W(I)=INT(6*RND(0))+1
1970 NEXT
1980 IFZ$="1"THEN2000
1990 IFA$<>CHR$(29)THEN2080
2000 FORI=7TO0STEP-1
2010 A1=W(8-I)
2020 A=0:IFA1=6THENA=1
2030 POKE253,A
2040 POKE254,2^I
2050 SYS50853
2060 NEXT
2070 GOTO2200
2080 A0=7:A1=W(1):J=1
2090 FORI=1TO50
2100 IFI>A1THENA0=A0-1:J=J+1:A1=A1+W(J)
2110 IFJ=9THENI=50:GOTO2150
2120 A=I-6*INT(I/6):IFA>0THENA=-1
2130 POKE253,A+1
2140 POKE254,2^A0:SYS50853
2150 NEXT
2160 FORI=2TO8
2170 W(I)=W(I)+W(I-1)
2180 IFW(I)>6THENW(I)=W(I)-6
2190 NEXT
2200 P=0
2210 FORI=1TO6
2220 IFW(I)=6THENP=P+I
2230 NEXT
2240 P0=0:IFW(7)=6THENP0=1
2250 IFW(8)=6THENP0=P0+2
2260 RETURN
2270 REM *********************
2280 REM AKTUELLER SPIELER ***
2290 REM *********************
2300 A=440:A0=SN
2310 IFSN>4THENA=720:A0=SN-4
2320 A=A+10*A0-8
2330 FORI=A+BTOI+6
2340 POKEI,(PEEK(I)+128)AND255
2350 NEXT
2360 RETURN
2370 REM ******************
2380 REM PRUEFEN GEWINN ***
2390 REM ******************
2400 IFP=0THEN2630
2410 A$="BANK AN SPIELER"
2420 IFP0>0THEN2470
2430 SS=SN:SP$=STR$(SS)
2440 IFP=21THENP=MS(0,0)
2450 IFP>MS(0,0)THEN2520
2460 GOTO2490
2470 IFP>MS(0,0)THEN2520
2480 SS=KA(P0,0):SP$=K$(P0,1)
2490 A$=A$+SP$+" ="+STR$(P)
2500 IFSS=0THENA$="AN BANK ="+STR$(P)
2510 S1=0:GOSUB2790:GOTO2730
2520 SS=KA(4,0):SP$=K$(4,1)
2530 S1=SN:SQ$=STR$(S1)
2540 IFP0>0THENS1=KA(P0,0):SQ$=K$(P0,1)
2550 IFSS=S1THEN2590
2560 A$="SPIELER"+SQ$+" AN"
2570 A$=A$+SP$+" ="+STR$(P)
2580 GOSUB2790:GOTO2730
2590 A$="SPIELER"+STR$(SN)+" AN BANK ="
2600 IFSN=0THENA$="BANK AN BANK ="
2610 A$=A$+STR$(P)
2620 SS=0:S1=SN:GOSUB2790:GOTO2730
2630 SS=SN:SP$=STR$(SS)
2640 IFP0=0THEN2660
2650 SS=KA(P0,0):SP$=K$(P0,1)
2660 A$="SPIELER"+SP$+" AN"
2670 IFSS=0THENA$="BANK AN"
2680 IF(P0=0)AND(SS=KA(5,0))THEN2710
2690 A$=A$+K$(5,1)+" = 3"
2700 P=-3:S1=KA(5,0):GOSUB2790:GOTO2730
2710 A$=A$+" BANK = 3"
2720 S1=SS:SS=0:P=3:GOSUB2790
2730 GOSUB2300
2740 SN=SN+1:IFSN>ANTHENSN=1
2750 RETURN
2760 REM *************
2770 REM AUSZAHLEN ***
2780 REM *************
2790 GOSUB1840
2800 GOSUB490
2810 A=2:IFSS=0THENA=0
2820 MS(SS,A)=MS(SS,A)+P
2830 GOSUB730
2840 SS=S1:A=2:IFSS=0THENA=0
2850 MS(SS,A)=MS(SS,A)-P
2860 GOSUB730
2870 RETURN
2880 REM ****************
2890 REM LOESCHEN SID ***
2900 REM ****************
2910 FORS=0TO23:POKESI+S,0
2920 NEXT:RETURN
2930 REM **********
2940 REM HEULEN ***
2950 REM **********
2960 POKESI+5,102:POKESI+6,0
2970 POKESI+24,15:POKESI+4,17
2980 RETURN
2990 REM ********
3000 REM GONG ***
3010 REM ********
3020 GOSUB2910
3030 POKESI+1,8:POKESI,180
3040 POKESI+5,12:POKESI+8,15
3050 POKESI+7,247:POKESI+6,8
3060 POKESI+13,8:POKESI+20,8
3070 POKESI+15,13:POKESI+14,10
3080 POKESI+12,12:POKESI+19,12
3090 POKESI+24,15:POKESI+4,23
3100 POKESI+11,23:POKESI+18,23
3110 RETURN
3120 REM **********
3130 REM GLOCKE ***
3140 REM **********
3150 GOSUB2910
3160 POKESI,207:POKESI+1,34
3170 POKESI+3,8:POKESI+7,255
3180 POKESI+8,34:POKESI+10,8
3190 POKESI+14,231:POKESI+15,34
3200 POKESI+17,8:POKESI+5,9
3210 POKESI+12,12:POKESI+19,12
3220 POKESI+6,9:POKESI+12,9
3230 POKESI+20,9
3240 POKESI+24,15
3250 FORS=1TOS0
3260 POKESI+4,65:POKESI+11,64
3270 FORS1=0TO100:NEXT
3280 POKESI+11,65:POKESI+18,64
3290 FORS1=0TO100:NEXT
3300 POKESI+18,65:POKESI+4,64
3310 FORS1=0TO100:NEXT
3320 NEXT
3330 POKESI+11,64:POKESI+18,64
3340 RETURN
3350 REM **************
3360 REM ZWITSCHERN ***
3370 REM **************
3380 GOSUB2910
3390 POKESI+24,15
3400 POKESI+6,240:POKESI+13,240
3410 POKESI+4,17:POKESI+11,33
3420 FORS=1TO10
3430 FORS0=25TO250STEP25
3440 POKESI+1,S0:POKESI+8,275-S0
3450 NEXTS0,S
3460 POKESI+4,16:POKESI+11,32
3470 RETURN
3480 REM ****************
3490 REM ANFANGSWERTE ***
3500 REM ****************
3510 SYS12*4096
3520 _RF,0:_RC,4,255
3530 _RC,3,31:_RE:_SAA:_SAF,0
3540 PRINTCHR$(150)CHR$(147)
3550 PRINTCHR$(158)
3560 A=RND(-TI):   REM ZUFALL
3570 B=52224:      REM BILDSPEICHER
3580 F=55296:      REM FARBSPEICHER
3590 CU=58640:     REM CURSORSTEUERUNG
3600 ZE=214:       REM CURSORZEILE
3610 SP=211:       REM CURSORSPALTE
3620 SI=54272:     REM SID
3630 DIMK$(5,1):   REM KARTENNAMEN
3640 DIMMS(8,2):   REM SPIELERWERTE
3650 DIMKA(5,1):   REM KARTENWERTE
3660 K$(1,0)="GLOCKE"
3670 K$(2,0)="HAMMER"
3680 K$(3,0)="GLOCKE+HAMMER"
3690 K$(4,0)="WIRTSHAUS"
3700 K$(5,0)="SCHIMMEL"
3710 RETURN
3720 REM *************
3730 REM TITELBILD ***
3740 REM *************
3750 GOSUB5830
3760 A$="GLOCKE":A1=1:A2=7:A3=128
3770 GOSUB5110
3780 A=2:A1=8:GOSUB5550
3790 _SMC,15:_SMX,0:_SMY,0
3800 _SMK,112,187
3810 _SME,1:_SME,2:_SME,3
3820 GOSUB2910:GOSUB2960:A=1
3830 FORI=187TO75STEP-2
3840 A=A+1:IFA=5THENA=2
3850 _SMR,7,A:_SMR,7,A+3
3860 POKESI+1,I:POKESI+4,16
3870 GOSUB2970
3880 _SMK,112,I
3890 NEXT
3900 POKEZE,4:POKESP,12:SYSCU
3910 PRINTCHR$(158)A$
3920 _SMK,132,100,5:_SMC,0,5
3930 _SMY,1,5:_SME,5
3940 _SMA,1:_SMA,2:_SMA,3
3950 A$="HAMMER":A1=1:A2=7:A3=128
3960 GOSUB5110
3970 A=2:A1=8:GOSUB5550
3980 _SMA,5:_SMK,192,187
3990 _SME,1:_SME,2:_SME,3
4000 A=1
4010 FORI=187TO75STEP-2
4020 A=A+1:IFA=5THENA=2
4030 _SMR,7,A:_SMR,7,A+3
4040 POKESI+1,I:POKESI+4,16
4050 GOSUB2970
4060 _SMK,192,I
4070 NEXT
4080 POKEZE,4:POKESP,22:SYSCU
4090 PRINTCHR$(158)A$
4100 _SMK,212,100,6:_SMC,0,6
4110 _SMK,132,100,5:_SME,5
4120 _SMY,1,6:_SME,6
4130 _SMA,1:_SMA,2:_SMA,3
4140 A$="UND":A1=1
4150 _SMF,0,2:GOSUB5110
4160 A=2:A1=8:GOSUB5550
4170 _SMA,5:_SMA,6:_SMK,164,187
4180 _SME,1:_SME,2
4190 GOSUB2910:GOSUB2960:A=1
4200 FORI=187TO59STEP-1
4210 IFI=187THEN4240
4220 A=A+1:IFA=5THENA=2
4230 _SMR,7,A
4240 POKESI+1,I:POKESI+4,16
4250 GOSUB2970
4260 _SMK,164,I
4270 NEXT:_SMR,7,2:_SMR,7,3
4280 _SMR,7,4:_SMR,7,4
4290 _SMK,172,100,7:_SMC,0,7
4300 _SMY,1,7:_SME,7:_SMF,0,3
4310 A=7:A1=7:A3=0:GOSUB5550
4320 _SMC,7,3:_SMK,172,60,3
4330 _SME,3
4340 GOSUB2910:GOSUB2960
4350 FORI=1TO20
4360 _SMK,172,76-16*(IAND1),3
4370 POKESI+1,100+16*(IAND1)
4380 POKESI+4,16
4390 GOSUB2970
4400 NEXT
4410 _SMA,1:_SMA,2
4420 A$="GLOCKE UND HAMMER"
4430 A=1:A2=5:A1=1:GOSUB5110
4440 A=2:A1=8:GOSUB5550
4450 GOSUB2970
4460 _SOC,4:_SUC,13:_SRY,1:_SRX,1
4470 _SRK,30,0:_RC,0,15
4480 _RC,5,48:_SRE
4490 POKEZE,12:POKESP,11:SYSCU
4500 A$="(P)[160]COMMODORE DISC"
4510 PRINTCHR$(153)A$
4520 A$="(C)[160]GUENTER KRAMER"
4530 PRINT:PRINTSPC(11)A$
4540 GOSUB6040
4550 POKEZE,17:POKESP,11:SYSCU
4560 A$="WIEVIELE SPIELER ?"
4570 PRINTCHR$(5)A$
4580 PRINT:POKE198,0
4590 GETA$
4600 IFA$<"1"ORA$>"8"THEN4590
4610 GOSUB3380
4620 PRINTSPC(12)A$" SPIELER - OK ?"
4630 GETE$:IFE$="J"THEN4660
4640 IFE$<>"N"THEN4630
4650 POKE781,19:SYS59903:GOTO4550
4660 AN=VAL(A$)
4670 S0=5:GOSUB3150
4680 _SUA:_SUC,1:_SUX,0:_SUY,1
4690 FORI=38TO304STEP38
4700 _SUK,I,0,I/38:NEXT:_SUY,0
4710 SYS51776
4720 _RF,0:_SUE
4730 RETURN
4740 REM **********************
4750 REM SPIELFELD AUFBAUEN ***
4760 REM **********************
4770 A$=CHR$(32)+CHR$(32)+CHR$(32)
4780 _SMA:PRINTCHR$(147)CHR$(5)
4790 A$=CHR$(18)+A$
4800 FORI=1TO6
4810 PRINTSPC(3)A$SPC(5)A$SPC(5)A$SPC(5)A$SPC(5)A$:NEXT
4820 _SMA:FORI=5TO8
4830 _SMX,0,I:_SMY,1,I:_SMC,0,I
4840 _SMK,I*64-272,61,I:_SME,I:NEXT
4850 FORI=320TO359
4860 POKEF+I,13:POKEB+I,64
4870 POKEF+I+80,13:POKEB+I+80,64
4880 POKEF+I+360,13:POKEB+I+360,64
4890 POKEF+I+640,13:POKEB+I+640,64
4900 NEXT
4910 FORI=410TO430STEP10
4920 POKEF+I,13:POKEB+I,114
4930 FORJ=40TO320STEP280
4940 FORK=0TO200STEP40
4950 POKEF+I+J+K,13:POKEB+I+J+K,66
4960 NEXT
4970 POKEF+I+J+K,13
4980 IFJ=40THENPOKEB+I+J+K,91
4990 IFJ=320THENPOKEB+I+J+K,113
5000 NEXTJ,I
5010 FORI=1TOAN
5020 A$="**"+STR$(I)+" **"
5030 POKEZE,11:IFI>4THENPOKEZE,18
5040 A=10*I-8:IFI>4THENA=A-40
5050 POKESP,A:SYSCU
5060 PRINTA$:NEXT
5070 RETURN
5080 REM *****************
5090 REM RAHMEN SETZEN ***
5100 REM *****************
5110 A=LEN(A$)
5120 IF(A2AND1)=1THENGOSUB5190
5130 IF(A2AND2)=2THENGOSUB5310
5140 IF(A2AND4)=4THENGOSUB5430
5150 RETURN
5160 REM ***************
5170 REM OBERER RAND ***
5180 REM ***************
5190 FORI=1+A1TOA+A1
5200 _SOB,64+A3,1,I:NEXT
5210 _SOB,73+A3,1,I:_SOB,66+A3,9,I
5220 _SOB,75+A3,14,I
5230 FORI=A+A1TO1+A1STEP-1
5240 _SOB,64+A3,14,I:NEXT
5250 _SOB,74+A3,14,I
5260 _SOB,66+A3,9,I:_SOB,85+A3,1,I
5270 RETURN
5280 REM *****************
5290 REM MITTELSPRITES ***
5300 REM ***************
5310 FORI=1+A1TOA+A1
5320 _SMB,64+A3,1,I:NEXT
5330 _SMB,73+A3,1,I:_SMB,66+A3,9,I
5340 _SMB,75+A3,14,I
5350 FORI=A+A1TO1+A1STEP-1
5360 _SMB,64+A3,14,I:NEXT
5370 _SMB,74+A3,14,I
5380 _SMB,66+A3,9,I:_SMB,85+A3,1,I
5390 RETURN
5400 REM ****************
5410 REM UNTERER RAND ***
5420 REM ****************
5430 FORI=1+A1TOA+A1
5440 _SUB,64+A3,1,I:NEXT
5450 _SUB,73+A3,1,I:_SUB,66+A3,9,I
5460 _SUB,75+A3,14,I
5470 FORI=A+A1TO1+A1STEP-1
5480 _SUB,64+A3,14,I:NEXT
5490 _SUB,74+A3,14,I
5500 _SUB,66+A3,9,I:_SUB,85+A3,1,I
5510 RETURN
5520 REM ***************
5530 REM TEXT SETZEN ***
5540 REM ***************
5550 IF(A2AND1)=1THENGOSUB5620
5560 IF(A2AND2)=2THENGOSUB5690
5570 IF(A2AND4)=4THENGOSUB5760
5580 RETURN
5590 REM *************
5600 REM TEXT OBEN ***
5610 REM *************
5620 FORI=0TOLEN(A$)-1
5630 A4=ASC(MID$(A$,I+1,1))AND63
5640 _SOB,A4+A3,A1,A+I:NEXT
5650 RETURN
5660 REM **************
5670 REM TEXT MITTE ***
5680 REM **************
5690 FORI=0TOLEN(A$)-1
5700 A4=ASC(MID$(A$,I+1,1))AND63
5710 _SMB,A4+A3,A1,A+I:NEXT
5720 RETURN
5730 REM **************
5740 REM TEXT UNTEN ***
5750 REM **************
5760 FORI=0TOLEN(A$)-1
5770 A4=ASC(MID$(A$,I+1,1))AND63
5780 _SUB,A4+A3,A1,A+I:NEXT
5790 RETURN
5800 REM ***********************
5810 REM SPRITE-KARTEN LESEN ***
5820 REM ***********************
5830 A=PEEK(61)+256*PEEK(62)
5840 POKE65,AAND255
5850 POKE66,A/256
5860 FORI=64256TOI+255
5870 READA:POKEI,A:NEXT
5880 RETURN
5890 REM ***********************
5900 DATA0,60,0,0,126,0,3,195,192,14,0,112,24,0,24,48,0,12,48,0,12,48,0,12
5910 DATA48,0,12,48,0,12,48,0,12,48,0,12,48,0,12,48,0,12,96,0,6,192,0,3,126
5920 DATA0,126,3,231,192,0,24,0,0,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,240
5930 DATA0,0,252,0,0,63,0,0,15,192,0,3,240,0,15,252,0,60,63,0,240,12,3,192
5940 DATA0,15,0,0,60,0,0,240,0,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
5950 DATA0,0,48,0,0,248,0,0,111,143,0,48,67,192,32,33,224,16,24,248,8,7,252
5960 DATA4,15,15,2,60,224,3,240,30,3,192,3,15,0,12,61,0,48,241,3,192,195,252
5970 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255,0,8,2,192,16,1,48,32
5980 DATA0,140,64,0,82,128,0,98,255,255,202,128,0,90,156,231,82,156,231,68
5990 DATA156,231,72,128,224,80,128,224,96,255,255,192,0,0,0,0,0,0,0,0,0,0
6000 DATA0,0,0,0,0,73
6010 REM ************************
6020 REM SPRITE-WUERFEL LESEN ***
6030 REM ************************
6040 A=PEEK(61)+256*PEEK(62)
6050 POKE65,AAND255
6060 POKE66,A/256
6070 FORI=51200TO51801
6080 READA:POKEI,A:NEXT
6090 GOSUB6500:RETURN
6100 REM ***********************
6110 DATA15,255,240,63,255,252,127,255,254,127,255,254,255,255,255,255,255
6120 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
6130 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
6140 DATA127,255,254,127,255,254,63,255,252,15,255,240,0,15,255,240,63,255
6150 DATA252,127,255,254,127,255,254,255,255,255,255,255,255,255,255,255,255
6160 DATA255,255,255,255,255,255,231,255,255,195,255,255,231,255,255,255,255
6170 DATA255,255,255,255,255,255,255,255,255,255,255,255,127,255,254,127,255
6180 DATA254,63,255,252,15,255,240,0,15,255,240,63,255,252,127,255,254,127
6190 DATA255,158,255,255,15,255,255,159,255,255,255,255,255,255,255,255,255
6200 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
6210 DATA255,249,255,255,240,255,255,121,255,254,127,255,254,63,255,252,15
6220 DATA255,240,0,15,255,240,63,255,252,127,255,254,127,255,158,255,255,15
6230 DATA255,255,159,255,255,255,255,255,255,255,255,255,255,231,255,255,195
6240 DATA255,255,231,255,255,255,255,255,255,255,255,255,255,249,255,255,240
6250 DATA255,255,121,255,254,127,255,254,63,255,252,15,255,240,0,15,255,240
6260 DATA63,255,252,127,255,254,121,255,158,240,255,15,249,255,159,255,255
6270 DATA255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
6280 DATA255,255,255,255,255,255,255,255,249,255,159,240,255,15,121,255,158
6290 DATA127,255,254,63,255,252,15,255,240,0,15,255,240,63,255,252,127,255
6300 DATA254,121,255,158,240,255,15,249,255,159,255,255,255,255,255,255,255
6310 DATA255,255,255,231,255,255,195,255,255,231,255,255,255,255,255,255,255
6320 DATA255,255,255,249,255,159,240,255,15,121,255,158,127,255,254,63,255
6330 DATA252,15,255,240,0,15,255,240,63,255,252,127,255,254,121,255,158,240
6340 DATA255,15,249,255,159,255,255,255,255,255,255,255,255,255,249,255,159
6350 DATA240,255,15,249,255,159,255,255,255,255,255,255,255,255,255,249,255
6360 DATA159,240,255,15,121,255,158,127,255,254,63,255,252,15,255,240,0,15
6370 DATA255,240,63,231,252,127,195,254,127,195,254,255,231,255,255,129,255
6380 DATA255,60,255,254,126,127,254,126,127,254,102,127,254,66,127,252,231
6390 DATA63,249,255,159,240,126,15,255,24,255,255,231,255,255,219,255,127
6400 DATA255,254,127,255,254,63,255,252,15,255,240,0,15,255,240,63,255,252
6410 DATA127,255,254,127,255,254,255,240,255,255,248,127,255,252,63,255,254
6420 DATA31,255,254,15,255,252,7,255,248,67,255,240,225,255,225,243,255,195
6430 DATA255,255,135,255,255,15,255,254,31,255,124,63,254,126,127,254,63,255
6440 DATA252,15,255,240,68
6450 DATA169,64,133,95,169,200,133,96,169,202,133,91,169,63,133,90,169,255
6460 DATA133,88,133,89,32,191,163,96
6470 REM *****************
6480 REM WUERFELN M.P. ***
6490 REM *****************
6500 A=PEEK(61)+256*PEEK(62)
6510 POKE65,AAND255
6520 POKE66,A/256
6530 FORI=50853TO51018
6540 READA:POKEI,A:NEXT
6550 RETURN
6560 REM *****************
6570 DATA162,62,165,254,141,222,198,141,10,199,165,253,141,225,198,169,21
6580 DATA72,160,62,32,251,198,136,192,2,208,248,32,203,198,104,168,136,152
6590 DATA208,236,96,169,192,133,253,169,255,133,254,169,202,141,247,198,169
6600 DATA0,141,246,198,169,1,72,169,0,208,17,189,0,200,145,253,32,38,199,104
6610 DATA74,208,239,202,136,16,215,96,189,192,201,76,231,198,169,189,133,251
6620 DATA169,255,133,252,133,254,169,192,133,253,169,1,72,165,1,41,253,120
6630 DATA133,1,177,251,145,253,165,1,9,2,133,1,88,32,38,199,104,74,208,230
6640 DATA96,165,251,56,233,64,133,251,176,2,198,252,165,253,56,233,64,133
6650 DATA253,176,2,198,254,173,246,198,56,233,64,141,246,198,176,3,206,247
6660 DATA198,96